10 :REM================================
11 :REM  ZEICHEN SCHNELL INSTALLIEREN
12 :REM  OHNE BASIC-RAM VERLUST
13 :REM  BILDSCHIRM IM OBEREN RAM
14 :REM  ZEICHEN UNTERM I/O BEREICH
15 :REM (FREISOFT DEMO/FREEWARE-DEMO)
16 :REM    (D.BREITINGER 2002)
17 :REM================================
18 :
19 :GOTO1000:
20 :SAVE"@0:T&T DEUT.UMLAUTE",8:RETURN:
21 :GOTO120:----DATA POKE
22 :
100 :REM---ZEICHENSATZ AUS(L)
101 :DEFFN P(A)=PEEK(209)+PEEK(210)*256+POS(.):
103 :::FORA=.TO255:POKEFNP(.),A:PRINT"";:NEXT:PRINT:RETURN:
104 :
105 :
120 :A=.:REM---SUPER DATA-POKE (ENDE:-1)
121 :C=PEEK(1):POKE56334,.:POKE1,51:GOSUB122:POKE1,C:POKE56334,1:RETURN:
122 :FORA=ATO65535:READB:IFB>=.ANDB<256THEN:POKEA,B:GOTO124:
123 :A=B-1-(B=-1)*66000
124 :NEXT:RETURN:
125 :
126 :
127 :
140 :L=24:REM---SCHIRM FUELLEN(C,L)
141 :S=59915+(PEEK(59911)>32)*3:IFL>24THEN:L=24:
142 :POKES,C:POKE781,L:SYS58720:POKES,32:RETURN:
143 :
144 :
150 :ROM/RAM,SCHIRM(52224)ZEICHEN(53248)
151 :POKE646,PEEK(53281)
152 POKE56334,.:POKE1,51:FORI=88TO91:POKEI,.:NEXT:POKE781,97:POKE782,.:SYS41971
153 :POKE1,53:POKE56334,1:POKE648,204:SYS58692:POKE56576,196:POKE53272,52
154 :A=43039:POKEA,61:POKEA+2,.:POKEA+4,62:RETURN:---RESTORE ZEILE
155 :
260 :A=100:REM---UMLAUT-DATEN EINFUEGEN
261 :RESTORE:A=FNZ(A):GOTO121
262 :
263 ::DATA102,,60,6,62,102,62,::DATA102,60,102,126,102,102,102,::REM---AE,2X
264 ::DATA102,,60,102,102,102,60,::DATA102,60,102,102,102,102,60,::REM---OE,2X
265 ::DATA102,,,102,102,102,62,::DATA102,66,102,102,102,102,60,::REM---UE,2X
266 ::DATA60,102,102,108,102,102,108,96,-1:REM---SZ
267 :
997 :
998 :
999 :
1000 :REM==============================
1001 :REM   ZEICHEN-DEMO
1002 :REM==============================
1003 :
1005 :DEFFN Z(A)=16384*(NOT(PEEK(56576))AND3)+1024*(PEEK(53272)AND14)+A*8
1009 :
1010 :GOSUB151:REM----ZEICHEN COPY
1012 :PRINT"[147][218]EICHEN-[196]EMO:":GOSUB100
1013 :PRINT"INSTALL":RESTORE:GOSUB260:
1014 :PRINT"A=FNZ(.):?A:REM---ADR."
1015 :PRINT"[213]MLAUTE:   [164],[165],[166],[167],[168],[169],[170]
1016 :